home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / aros / dos / putstr.c < prev    next >
C/C++ Source or Header  |  1996-09-12  |  1KB  |  69 lines
  1. /*
  2.     (C) 1995-96 AROS - The Amiga Replacement OS
  3.     $Id: putstr.c,v 1.3 1996/08/13 13:52:50 digulla Exp $
  4.     $Log: putstr.c,v $
  5.     Revision 1.3  1996/08/13 13:52:50  digulla
  6.     Replaced <dos/dosextens.h> by "dos_intern.h" or added "dos_intern.h"
  7.     Replaced __AROS_LA by __AROS_LHA
  8.  
  9.     Revision 1.2  1996/08/01 17:40:56  digulla
  10.     Added standard header for all files
  11.  
  12.     Desc:
  13.     Lang: english
  14. */
  15. #include <clib/exec_protos.h>
  16. #include <dos/dosextens.h>
  17. #include "dos_intern.h"
  18.  
  19. /*****************************************************************************
  20.  
  21.     NAME */
  22.     #include <clib/dos_protos.h>
  23.  
  24.     __AROS_LH1(LONG, PutStr,
  25.  
  26. /*  SYNOPSIS */
  27.     __AROS_LHA(STRPTR, string, D1),
  28.  
  29. /*  LOCATION */
  30.  
  31.     struct DosLibrary *, DOSBase, 158, Dos)
  32.  
  33. /*  FUNCTION
  34.  
  35.     INPUTS
  36.  
  37.     RESULT
  38.  
  39.     NOTES
  40.  
  41.     EXAMPLE
  42.  
  43.     BUGS
  44.  
  45.     SEE ALSO
  46.     FGetC(), IoErr()
  47.  
  48.     INTERNALS
  49.  
  50.     HISTORY
  51.     29-10-95    digulla automatically created from
  52.                 dos_lib.fd and clib/dos_protos.h
  53.  
  54. *****************************************************************************/
  55. {
  56.     __AROS_FUNC_INIT
  57.     __AROS_BASE_EXT_DECL(struct DosLibrary *,DOSBase)
  58.  
  59.     BPTR file=((struct Process *)FindTask(NULL))->pr_COS;
  60.     
  61.     while(*string)
  62.         if(FPutC(file,*string++)<0)
  63.             return EOF;
  64.             
  65.     return 0;
  66.     
  67.     __AROS_FUNC_EXIT
  68. } /* PutStr */
  69.